home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tex / macros / source / base / flafter.sty < prev    next >
Text File  |  1995-03-15  |  5KB  |  139 lines
  1. %% 
  2. %% This is file `flafter.sty', generated 
  3. %% on <1995/3/2> with the docstrip utility (2.2i).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% ltoutput.dtx  (with options: `flafter,trace')
  8. %% 
  9. %% Copyright 1994 the LaTeX3 project and the individual authors. 
  10. %% All rights reserved. For further copyright information see the file 
  11. %% legal.txt, and any other copyright indicated in this file. 
  12. %% 
  13. %% This file is part of the LaTeX2e system. 
  14. %% ---------------------------------------- 
  15. %% 
  16. %% This system is distributed in the hope that it will be useful, 
  17. %% but WITHOUT ANY WARRANTY; without even the implied warranty of 
  18. %% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
  19. %% 
  20. %% 
  21. %% IMPORTANT NOTICE: 
  22. %% 
  23. %% For error reports in case of UNCHANGED versions see readme files. 
  24. %% 
  25. %% Please do not request updates from us directly. Distribution is 
  26. %% done through Mail-Servers and TeX organizations. 
  27. %% 
  28. %% You are not allowed to change this file. 
  29. %% 
  30. %% You are allowed to distribute this file under the condition that 
  31. %% it is distributed together with all files mentioned in 00readme.txt. 
  32. %% 
  33. %% If you receive only some of these files from someone, complain! 
  34. %% 
  35. %% You are NOT ALLOWED to distribute this file alone. You are NOT 
  36. %% ALLOWED to take money for the distribution or use of either this 
  37. %% file or a changed version, except for a nominal charge for copying 
  38. %% etc. 
  39. %%% File: ltoutput
  40. \def \@addtocurcol {%
  41.   \tr@ce{***Start addtocurcol}%
  42.    \@insertfalse
  43.    \@setfloattypecounts
  44.    \ifnum \@fpstype=8
  45.      \tr@ce{fpstype !p only (addtocurcol): \the \@fpstype = 8?}%
  46.    \else
  47.      \ifnum \@fpstype=24
  48.        \tr@ce{fpstype p only (addtocurcol): \the \@fpstype = 24?}%
  49.      \else
  50.        \@flsettextmin
  51.        \tr@ce{textfloatsheight (before) = \the \@textfloatsheight}%
  52.        \advance \@textmin \@textfloatsheight
  53.        \@reqcolroom \@pageht
  54.        \tr@ce{textmin + textfloatsheight: \the \@textmin}%
  55.        \tr@ce{page-so-far: \the \@reqcolroom}%
  56.        \ifdim \@textmin>\@reqcolroom
  57.          \@reqcolroom \@textmin
  58.          \tr@ce{ORD? textmin being used}%
  59.        \fi
  60.        \advance \@reqcolroom \ht\@currbox
  61.        \tr@ce{float size = \the \ht \@currbox (addtocurcol)}%
  62.        \tr@ce{colroom = \the \@colroom (addtocurcol)}%
  63.        \tr@ce{reqcolroom = \the \@reqcolroom (addtocurcol)}%
  64.        \ifdim \@colroom>\@reqcolroom
  65.          \@flsetnum \@colnum
  66.          \ifnum \@colnum>\z@
  67.            \@bitor\@currtype\@deferlist
  68.            \tr@ce{deferlist: \@deferlist: (addtocurcol-before)}%
  69.            \if@test
  70.              \tr@ce{type already on list: defer (addtocurcol)}%
  71.            \else
  72.              \@bitor\@currtype\@botlist
  73.            \tr@ce{botlist: \@botlist: (addtocurcol-before)}%
  74.              \if@test
  75.                \tr@ce{type already on list: bot---sent to addtobot}%
  76.                \@addtobot
  77.              \else
  78.                \tr@ce{fpstype \ifodd \@tempcnta OK \else not \fi
  79.                       here: \the \@fpstype}%
  80.                \ifodd \count\@currbox
  81.                  \advance \@reqcolroom \intextsep
  82.                  \ifdim \@colroom>\@reqcolroom
  83.                    \global \advance \@colnum \m@ne
  84.                    \global \advance \@textfloatsheight \ht\@currbox
  85.                    \global \advance \@textfloatsheight 2\intextsep
  86.                    \@cons \@midlist \@currbox
  87.                    \tr@ce{***Success: here}%
  88.                    \tr@ce{textfloatsheight (after-here) =
  89.                         \the \@textfloatsheight}%
  90.                    \tr@ce{colnum (after-here) = \the \@colnum}%
  91.                    \if@nobreak
  92.                    \else
  93.                      \addpenalty \interlinepenalty
  94.                    \fi
  95.                    \vskip \intextsep
  96.                    \box\@currbox
  97.                    \penalty\interlinepenalty
  98.                    \vskip\intextsep
  99.                    \ifnum\outputpenalty <-\@Mii \vskip -\parskip\fi
  100.                    \outputpenalty \z@
  101.                    \@inserttrue
  102.                  \else
  103.                    \tr@ce{Fail---no room at 2nd test of colroom
  104.                                  (addtocorcol \string\intextsep)}%
  105.                  \fi
  106.                \fi
  107.                \if@insert
  108.                \else
  109.                  \tr@ce{not here: sent to addtobot}%
  110.                  \@addtobot
  111.                \fi
  112.              \fi
  113.            \fi
  114.          \else
  115.            \tr@ce{Fail: colnum = \the \@colnum:
  116.                         fpstype \the \@fpstype=ORD?}%
  117.            \ifnum \@fpstype<\sixt@@n
  118.              \tr@ce{ERROR: BANG float not successful (addtocurcol)}%
  119.            \fi
  120.          \fi
  121.        \else
  122.          \tr@ce{Fail---no room: fl box ht: \the \ht \@currbox
  123.                                                      (addtocurcol)}%
  124.        \fi
  125.      \fi
  126.    \fi
  127.    \if@insert
  128.    \else
  129.      \@resethfps
  130.      \tr@ce{put on deferlist (addtocurcol)}%
  131.      \@cons\@deferlist\@currbox
  132.      \tr@ce{deferlist: \@deferlist: (addtocurcol-after)}%
  133.    \fi
  134. }
  135. \providecommand\tr@ce[1]{}
  136. \endinput
  137. %% 
  138. %% End of file `flafter.sty'.
  139.